Sub Ǻμ( As Range,  As Integer,  As Single)

    With 
        .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
        With .FormatConditions(.FormatConditions.Count).Interior
            .ThemeColor = 
            .TintAndShade = 
        End With
    End With

End Sub
